home *** CD-ROM | disk | FTP | other *** search
| GW-BASIC | 1985-02-18 | 4.7 KB | 121 lines |
- 10 KEY OFF:WIDTH 80:COLOR 15,1,1:CLS
- 20 LOCATE 1,1:PRINT CHR$(201);STRING$(78,205);CHR$(187)
- 30 LOCATE 2,1:PRINT CHR$(186):LOCATE 2,80:PRINT CHR$(186)
- 40 LOCATE 3,1:PRINT CHR$(200);STRING$(78,205);CHR$(188)
- 50 REM MENU TITLE
- 55 COLOR 7
- 60 LOCATE 4,1:PRINT CHR$(201);STRING$(78,205);CHR$(187)
- 70 LOCATE 5,1:PRINT CHR$(186):LOCATE 5,80:PRINT CHR$(186)
- 80 LOCATE 6,1:PRINT CHR$(200);STRING$(78,205);CHR$(188)
- 90 REM SELECTION SECTION
- 100 LOCATE 7,1:PRINT CHR$(201);STRING$(78,205);CHR$(187)
- 110 LOCATE 8,1:PRINT CHR$(186):LOCATE 8,80:PRINT CHR$(186)
- 120 LOCATE 9,1:PRINT CHR$(186):LOCATE 9,80:PRINT CHR$(186)
- 130 LOCATE 10,1:PRINT CHR$(186):LOCATE 10,80:PRINT CHR$(186)
- 140 LOCATE 11,1:PRINT CHR$(186):LOCATE 11,80:PRINT CHR$(186)
- 150 LOCATE 12,1:PRINT CHR$(186):LOCATE 12,80:PRINT CHR$(186)
- 160 LOCATE 13,1:PRINT CHR$(186):LOCATE 13,80:PRINT CHR$(186)
- 170 LOCATE 14,1:PRINT CHR$(186):LOCATE 14,80:PRINT CHR$(186)
- 180 LOCATE 15,1:PRINT CHR$(186):LOCATE 15,80:PRINT CHR$(186)
- 190 LOCATE 16,1:PRINT CHR$(186):LOCATE 16,80:PRINT CHR$(186)
- 200 LOCATE 17,1:PRINT CHR$(186):LOCATE 17,80:PRINT CHR$(186)
- 210 LOCATE 18,1:PRINT CHR$(186):LOCATE 18,80:PRINT CHR$(186)
- 220 LOCATE 19,1:PRINT CHR$(186):LOCATE 19,80:PRINT CHR$(186)
- 230 LOCATE 20,1:PRINT CHR$(200);STRING$(78,205);CHR$(188)
- 240 LOCATE 2,23:COLOR 15:PRINT "*** IBM PC jr PRINTER SETUP MENU ***"
- 250 LOCATE 5,19:PRINT"Make your selection using the FUNCTION KEYS..."
- 260 LOCATE 9,20:COLOR 15:PRINT "F1 PICA (DEFAULT)........10 CPI"
- 270 LOCATE 10,20:COLOR 13:PRINT "F2 ELITE.................12 CPI "
- 280 LOCATE 11,20:COLOR 14:PRINT "F3 COMPRESSED............17 CPI "
- 290 LOCATE 12,20:COLOR 9:PRINT "F4 EXPANDED..............(DOUBLES F1,F2 or F3) "
- 300 LOCATE 13,20:COLOR 12:PRINT "F5 ITALICS...............(F1,F2 or F3) "
- 310 LOCATE 14,20:COLOR 10:PRINT "F6 DOUBLE STRIKE.........(F1 ONLY)"
- 320 LOCATE 15,20:COLOR 7:PRINT "F7 EMPHASIZED............(F1,F2 or F3)"
- 330 LOCATE 16,20:COLOR 11:PRINT "F8 TEST..................PRINT TEST"
- 350 LOCATE 17,20:COLOR 15:PRINT "F9 RESET.................CLEAR SETTINGS"
- 355 LOCATE 18,20:COLOR 14:PRINT "F10 EXIT..................RETURN TO DOS"
- 356 LOCATE 19,20:PRINT " "
- 361 LOCATE 22,58:PRINT " "
- 362 LOCATE 7,3:COLOR 13:PRINT"EPSON RX-80":COLOR 15
- 364 LOCATE 20,69:COLOR 13:PRINT"IBM PC jr.":COLOR 15
- 365 LOCATE 22,14:COLOR 15:PRINT " ENTER YOUR CHOICE BY FUNCTION KEY......"
- 370 REM ***********************************************************************
- 380 REM SET FUNCTION KEYS
- 390 REM ***********************************************************************
- 400 KEY 1,"PICA "+CHR$(13)
- 410 KEY 2,"ELITE "+CHR$(13)
- 420 KEY 3,"TINY "+CHR$(13)
- 430 KEY 4,"EXPAN "+CHR$(13)
- 440 KEY 5,"ITALIC"+CHR$(13)
- 450 KEY 6,"DOUBLE"+CHR$(13)
- 460 KEY 7,"EMPH "+CHR$(13)
- 470 KEY 8,"TEST "+CHR$(13)
- 480 KEY 9,"RESET "+CHR$(13)
- 490 KEY 10,"EXIT "+CHR$(13)
- 500 REM ***********************************************************************
- 510 REM INPUT FROM FUNCTION KEY SELECTION AND TEST TO SEE IF CORRECT
- 520 REM ***********************************************************************
- 530 REM
- 540 COLOR 15:LOCATE 22,57:INPUT M$
- 550 COLOR 7
- 560 IF M$="A" GOTO 1090
- 570 REM ***********************************************************************
- 580 REM SELECT AND SEND PRINTER COMMANDS TO PRINTER
- 590 REM ***********************************************************************
- 600 REM
- 610 IF M$<>"PICA" GOTO 640
- 620 LPRINT CHR$(18) 'TURNS OFF 17 CPI
- 630 GOTO 1110
- 640 IF M$<>"ELITE" GOTO 670
- 650 LPRINT CHR$(27)"M" 'TURNS ON ELITE - 12CPI
- 660 GOTO 1110
- 670 IF M$<>"TINY" GOTO 700
- 680 LPRINT CHR$(15) 'TURNS ON COMPRESSED - 17 CPI
- 690 GOTO 1110
- 700 IF M$<>"EXPAN" GOTO 730
- 710 LPRINT CHR$(27)"W1" 'TURNS ON EXPANDED-DOUBLE CURRENT CPI MODE
- 720 GOTO 1110
- 730 IF M$<>"ITALIC" GOTO 760
- 740 LPRINT CHR$(27)"4" 'TURNS ON ITALIC MODE WITH CURRENT CPI MODE
- 750 GOTO 1110
- 760 IF M$<>"DOUBLE" GOTO 790
- 770 LPRINT CHR$(27)"G" 'TURNS ON DOUBLE STRIKE (PICA ONLY)
- 780 GOTO 1110
- 790 IF M$<>"EMPH" GOTO 810
- 795 LPRINT CHR$(27)"E" 'TURNS ON EMPHAS.MODE WITH CURRENT CPI MODE
- 800 GOTO 1110
- 810 IF M$<>"TEST" GOTO 840
- 820 LPRINT "TEST...test...abcdefghijklmnopqrstuvwxyz"
- 830 GOTO 1110
- 840 IF M$<>"RESET" GOTO 870
- 850 LPRINT CHR$(27)"@" 'CLEARS ALL SETTINGS TO DEFAULT POWER ON
- 860 GOTO 1110
- 870 IF M$ = "EXIT" THEN 890
- 880 GOTO 1090
- 890 CLS:SYSTEM
- 900 WIDTH 80:COLOR 15:CLS:LOCATE 2,30:PRINT "HELP SCREEN"
- 910 LOCATE 4,1:COLOR 7
- 920 PRINT " This program is used to send printer commands to control the size"
- 930 PRINT "of the print your printer will use during general print operations.
- 940 PRINT "
- 950 PRINT " These commands will remain in effect until you turn off the printer"
- 960 PRINT "or you clear them and send the printer new commands with this program."
- 970 PRINT "
- 980 PRINT " The function keys on your PC will be used to setup your printer.
- 990 PRINT "
- 1000 PRINT " It is best to clear all previous settings first before trying a new"
- 1010 PRINT "printer code. (use the F9 key to clear all previous settings.)"
- 1020 PRINT "
- 1030 PRINT " Test your selection by using the F8 TEST key before leaving.
- 1040 PRINT "
- 1050 PRINT "
- 1060 COLOR 15:PRINT " Press RETURN to get back to the MENU SCREEN."
- 1070 B$=INKEY$:IF B$="" THEN 1070
- 1080 GOTO 10
- 1090 LOCATE 22,14:COLOR 14:PRINT" INVALID SELECTION TRY AGAIN............."
- 1100 FOR DELAY =1 TO 1000: NEXT:GOTO 365
- 1110 IF T=1 THEN 365
- 1120 LOCATE 22,15:COLOR 14:PRINT "SELECTION REGISTERED... PLEASE CONTINUE...."
- 1125 GOTO 1100
- 1130 T=1:GOTO 365
-
(.txt)